home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / text / FAQ / bonus / start_most.rexx < prev   
OS/2 REXX Batch file  |  1994-12-27  |  531b  |  23 lines
  1. /*  Arexx-Script for Most
  2.     loading new text in old window and bring it to front
  3.     $VER: start_most.rexx 0.8 (17-Dez-94) ©1994 ninji
  4.  */
  5.  
  6. parse arg file
  7. options results
  8.  
  9. if (~exists(file)) then file = strip(file,,'"')
  10.  
  11. if ((pos(':',file) == 0) & (pos('/',file) == 0)) then do
  12.     dir = pragma(d)
  13.     if (right(dir,1) ~= ':') then file = dir || '/' || file
  14.     else file = dir || file
  15.     end
  16.  
  17. if (~show(ports,'MOST.0')) then address command 'Run Most' file
  18. else do
  19.     address MOST.0
  20.     'open FILE' file
  21.     'tofront'
  22.     end
  23.